home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 86
/
086.d81
/
pxword 86
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
60 lines
10 poke53280,0:poke53281,0:printchr$(14);chr$(8);
20 poke55,0:poke56,96:clr
25 rem goto45
30 sys57812"toolbox 86",8,0:poke781,0:poke782,192:sys65493
40 sys57812"pcryptic 86",8,0:poke781,0:poke782,96:sys65493
45 print"[147]"
50 sys49152,7,4,15,7,34,160,12
52 sys49152,7,2,13,5,31,160,15
54 sys49152,7,4,13,32,32,101+128,12
60 printtab(10)"[155][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
62 printtab(10)"[163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163]"
65 printtab(7)"1] [208]rint [208]uzzle
70 [153][163]7)"2] (NULL)rint (NULL)olution
75 printtab(7)"3] [211]olving [201]nstructions
79 [153][163]7)"4] valxit"
80 [153][163]5)"listtototototototototototototototototototototototototototo"
81 [158]49152,7,19,20,0,39,98,11
82 [158]49152,7,23,24,0,39,98[170]128,11
83 [158]49152,4,0:[151]198,0
85 [158]49152,3,0,0,1,14,20,160,"(NULL)ress 1-4 to select.
90 getk$:ifk$=""then85
95 k=val(k$):ifk<1or k>4then85
100 onkgosub1000,2000,3000,4000
105 goto85
110 :
1000 sys49152,10,15,4:sys49152,6,6,7,6,30,12
1002 sys49152,3,0,0,1,14,20,160,"[208]rinter ready? [y/n]"
1005 getk$:ifk$=""then1002
1010 ifk$<>"y"thensys49152,5,0:return
1012 sys49152,10,4,3
1015 sys49152,7,20,23,0,39,160,14
1020 poke214,20:print:printtab(15)"[154][208]rinting..."
1025 sys24576:sys49152,5,0:return
1030 :
2000 sys49152,10,15,4:sys49152,6,7,8,6,30,12
2002 sys49152,3,0,0,1,14,20,160,"[208]rinter ready? [y/n]"
2005 getk$:ifk$=""then2002
2010 ifk$<>"y"thensys49152,5,0:return
2012 sys49152,10,4,3
2015 sys49152,7,20,23,0,39,160,14
2020 poke214,20:print:printtab(15)"[154][208]rinting..."
2025 sys24576+3:sys49152,5,0:return
2030 :
3000 print"[155]":sys49152,13,8,asc("\"),"cryptic instr 86"
3005 sys49152,5,0:return
3010 :
4000 sys49152,10,15,4:sys49152,6,9,10,6,30,12
4002 sys49152,3,0,0,1,14,20,160,"[193]re you sure? [y/n]"
4005 getk$:ifk$=""then4002
4010 ifk$<>"y"thensys49152,5,0:return
4012 poke55,0:poke56,160:clr
4050 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
4055 ifer%<>63thenend
4060 poke646,peek(53281)
4062 print"[147][146]load"chr$(34)"hello connect"chr$(34)",8"
4065 print"run"
4075 poke631,13:poke632,13:poke633,13:poke198,3:end
4080 :
10000 open15,8,15,"s0:pxword 86":close15:save"0:pxword 86",8